//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DebugForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmDebug *frmDebug;
//---------------------------------------------------------------------------
__fastcall TfrmDebug::TfrmDebug(TComponent* Owner)
        : TForm(Owner)
{
}


AnsiString __fastcall TfrmDebug::CountInc(AnsiString Str)
{
   AnsiString StrTemp ="";
   if(TotalCount>10000) TotalCount = 0;
   TotalCount++;
   edtCount->Text = TotalCount;
   StrTemp = IntToStr(TotalCount)+" "+Str;
   mmo1->Lines->Add(StrTemp);
   return(StrTemp);
   

}

void __fastcall TfrmDebug::FormCreate(TObject *Sender)
{
    Count = 0;
    TotalCount = 0;    
}
//---------------------------------------------------------------------------

